home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / EKRANOKU.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-10  |  1KB  |  57 lines
  1.  
  2.  
  3. Program EkranOku; {EKRANOKU.PAS}
  4.  
  5. Uses Crt, Dos, Turbo3;
  6.  
  7. Var
  8.   EkrMem  : longint;
  9.   ScrFile : string;
  10.   dosScr  : file;
  11.   ch      : char;
  12.   ekr     : array[0..3999] of byte;
  13.   i       : integer;
  14.  
  15. Begin
  16.   {ekran mono mu renkli mi}
  17.   If LastMode=7 then EkrMem:=$B000
  18.                 else EkrMem:=$B800;
  19.   {ekrandaki görüntüyü sakla}
  20.   for i:=0 to 3999 do
  21.       ekr[i]:=Mem[EkrMem:i];
  22.   ScrFile:='';
  23.   {parametreyi aktar}
  24.   ScrFile:=ParamStr(1);
  25.   {parametre yoksa}
  26.   if ScrFile='' then
  27.      begin
  28.      Writeln;
  29.      Writeln('EKRANOKU [ekrandosyasì]');
  30.      Writeln('EKRANOKU sonuc.scr');
  31.      Writeln;
  32.      Halt;
  33.      end;
  34.   {dosyayì aç}
  35.   Assign(dosScr,ScrFile);
  36.   Reset(dosScr,1);
  37.   {dosya açìlamìyorsa}
  38.   if ioresult<>0 then
  39.      begin
  40.      Writeln;
  41.      Writeln('Dosya okuma iƒleminde hata oldu!');
  42.      Writeln;
  43.      Halt;
  44.     end;
  45.   {dosyadaki ekran görüntüsünü ekranda göster}
  46.   BlockRead(dosScr,Mem[EkrMem:0],4000);
  47.   {dosyayì kapat}
  48.   Close(dosScr);
  49.   {enter'e basìlmasìnì bekle}
  50.   repeat
  51.     read(kbd,ch);
  52.     sound(666); delay(10); nosound;
  53.   until ch=#13;
  54.   {eski ekran görüntüsünü geri getir}
  55.   for i:=0 to 3999 do
  56.       Mem[EkrMem:i]:=ekr[i];
  57. End.